1 INPUT"[147]STELLEN";S:E=INT(10^S*RND(0)):GOSUB2:FORI=1TOS:L(I)=E(I):NEXT:GOTO3
2 FORI=1TOS:E(I)=E-10*INT(E/10):E=INT(E/10):C(I)=0:B(I)=0:R=R-(L(I)=E(I)):NEXT:RETURN
3 V=V+1:INPUTE:R=0:F=0:GOSUB2:FORI=1TOS:FORJ=1TOS:B=(L(J)=E(I))ANDNOTB(I)ANDNOTC(J)
4 B(I)=B(I)+B:C(J)=C(J)+B:F=F-B:NEXTJ,I:PRINT"[154]"TAB(16)R"   "F-R"   "V:IFR<STHEN3